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No card should precede the subroutine statement. 

The SUBROUTINE subprogram may use one or more 
of its arguments to return values to the calling program. 
Any arguments so used must appear on the left side of 
an arithmetic statement or in an input list within the 
subprogram. The name of the subroutine must not be 
used as a variable in its subroutine subprogram. 

The arguments may be considered dummy variable 
names that are replaced at the time of execution by 
the actual arguments supplied in the call statement. 
The actual arguments must correspond in number, 
order, and type to the dummy arguments. 

When a dummy argument is an array name, a di- 
mension statement must appear in the subroutine 
subprogram. The corresponding actual argument in the 
CALL statement must also be a dimensioned array name. 

None of the dummy arguments may appear in an 
EQUIVALENCE Or COMMON Statement in the subroutine 
subprogram. 

Like the function subprogram, the subroutine sub- 
program must return control to the calling program by 
a RETURN statement. 

An END statement is also required. 

Subprogram Names as Arguments — The EXTERNAL 
Statement 

Subprogram names may be used as the actual argu- 
ments in the calling program. In order to distinguish 
these subprogram names from ordinary variables when 
they appear in an argument list, their names must 
appear in an external statement (see “The Specifica- 
tion Statements”). 

The CALL Statement 

The CALL statement is used only to call a subroutine 
subprogram. 

General Form 

CALL name ( ai, ao, . . . , an) 

name is the symbolic name of a suuroutine subprogram, 
aj, an, . . . , an are the actual arguments that arc being 
supplied to the subroutine subprogram. 

EXAMPLES 

CALL MATMPY (X, 5, 40, Y, 7, 2) 

CALL QDRTIC (X, Y, Z, ROOTl, ROOT2) 

The CALL statement transfers control to the sub- 
routine subprogram and replaces the dummy vari- 
ables with the value of the actual arguments that ap- 
pear in the call statement. The arguments in a call 
statement may be any of the following: any type of 
constant, any type of subscripted or nonsubscripted 
variable, an arithmetic expression, the name of a sub- 
program. 

The arguments in a call statement must agree in 
number, order, type and array size with the corre- 
sponding arguments in the subroutine subprogram. 


Machine Indicator Tests 

The 1410/7010 fortran language provides machine 
indicator tests even though machine components refer- 
enced by the tests do not physically exist. The machine 
indicators, described below, are simulated by sub- 
routine subprograms located in the System Library. 

To use any of the following machine indicator tests, 
the user supplies the proper arguments and writes a 
CALL statement. In the following listing, i is an integer 
expression, j is an integer variable. 


GENERAL FORM 

FUNCTION 

SLITE (i) 

If i = 0, all sense lights are turned off. 
If i=l, 2, 3, or 4, tbe corresponding 
sense light is turned on. 

SLITET ( i, j ) 

Sense light i ( 1, 2, 3, or 4) is tested and 
j is set to “1” or “ 2 " if i is on or off, re- 
spectively. After the test, sense light i is 
turned off. 

OVERFL (j) 

This indicator is on if an arithmetic op- 
eration with real variables and constants 
results in an overflow condition; that is, 
if an arithmetic operation ( of type real ) 
produced a result whose value is greater 
than ( 1 — 10“‘’)Xl0*^*h If the indicator 
is on, j is set to “1”; if off, j is set to 
“2.” The indicator is set to off after the 
test is made. 

DVCHK (j) 

This indicator is set on if an arithmetic 
operation with real constants and vari- 
ables results in the attempt to divide by 
zero; j is set to “1” or “2” if the indicator 
is on or off, respectively. The indicator 
is set to off after the test is made. 


EXAMPLES 

CALL SLITE (3) 

CALL SLITET (K*J, L) 

CALL OVERFL (J) 

CALL DVCHK (I) 

As an example of how the sense lights can be used 
in a program, assume that the statements call slite ( i ) 
and CALL SLITET (i, ken) have been written. Further 
assume that it is desired to continue with the program 
if sense light i is on and to write results if sense 
light I is off. This can be accomplished using the 
Relational if statement or a Computed go to statement, 
as follows : 

IF (KEN. EQ. 2) WRITE (3, 26) (ANS(K),K=1, 10) 
or 


CO TO (6, 17) KEN 
17 WRITE (3, 26) (ANS(K), K = l, 10) 
6 
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EXIT Subroutine 

A CALL to the EXIT subprogram, located in the System 
Library, terminates the execution of the program and 
returns control to the Monitor. The exit subprogram 
and the stop statement produce identical results. 

General Form 
CALL EXIT 
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